home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ ShellIconCache Count.xpl < prev    next >
Text File  |  1999-06-11  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\General\Icons"
  5. "NAME"="Icon Cache Size"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Cached Icons"
  8. "DESCRIPTION 1"="Every icon that is accessed by Windows is cached in the file ShellIconCache. Next time the icon is read, it can be read from the cache instead from the actual file."
  9. "DESCRIPTION 2"="Sometimes this caching leads to an incorrect display of some icons."
  10. "DESCRIPTION 3"="This settings specifies how many icons should be cached, the default value is 512 (max. 8000)."
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  14. "COMMENT 2"="Version 1.3"
  15. "COMMENT 3"=" "
  16. "COMMENT 4"="Thanks to Siegfried Burgstedt for his fix!"
  17.  
  18.  
  19.  
  20. sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Max Cached Icons"
  21. Sub Plugin_Initialize 
  22.  i=RegReadValue(sP)
  23.  if IsEmpty(i) then
  24.   SetUIElement 1,512 
  25.  else
  26.   SetUIElement 1,i
  27.  end if
  28. End Sub
  29.  
  30. Sub Plugin_CheckData(ElementIndex)
  31. End Sub
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  i=GetUIElement(1)
  35.  
  36.  if len(i)=0 or IsNumeric(i)=false then
  37.   Call MsgError("Unable to update setting - please insert a value!")
  38.  else
  39.   Call RegWriteValue(sP,i,1)
  40.   Restart
  41.  end if
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.